Compute! Gazette 1986 December/1986-12.d64/fast dump

Commodore BASIC | 2022-09-20 | 1KB | 34 lines

10 input"[147]what is the starting address";l:ll=l
20 read a:ifa<0 then40
30 cksum=cksum+a:poke ll,a:ll=ll+1:goto20
40 if cksum<> 33095 then print "[147]error in data statements":end
50 print"[147]hires dump installed":print"sys"l"to activate"
60 data 169,0,32,189,255,169,4,170
70 data 160,4,32,186,255,32,192,255,162
80 data 4,32,201,255,169,27,32,210
90 data 255,169,64,32,210,255,169,27
100 data 32,210,255,169,65,32,210,255
110 data 169,8,32,210,255,162,39,134
120 data 250,169,27,32,210,255,169,75
130 data 32,210,255,169,200,32,210,255
140 data 169,0,32,210,255,162,0,134
150 data 251,162,0,134,252,166,251,134
160 data 195,162,0,134,196,162,6,24
170 data 6,195,38,196,202,208,249,162
180 data 0,134,253,134,254,162,5,24
190 data 165,253,101,195,133,253,165,254
200 data 101,196,133,254,202,208,240,134
210 data 196,166,250,134,195,162,3,24
220 data 6,195,38,196,202,208,249,240
230 data 4,16,164,208,186,24,165,195
240 data 101,252,133,195,165,196,105,32
250 data 133,196,24,165,253,101,195,133
260 data 253,165,254,101,196,133,254,160
270 data 0,132,195,177,253,240,10,162
280 data 8,74,38,195,202,208,250,165
290 data 195,32,210,255,166,252,232,224
300 data 8,208,136,166,251,232,224,25
310 data 208,193,169,13,32,210,255,166
320 data 250,202,16,181,32,204,255
330 data 169,4,76,195,255,-1